home *** CD-ROM | disk | FTP | other *** search
- /* LoadTeXLog.dme */
-
- parse arg name opts .
- options results
-
- if name = 'unnamed' then
- do
- 'escimm (chfilename )'
- exit
- end
- 'if m saveold'
-
- 'getval $screenname'
- screenname = result
-
- call close 'STDERR'
- call open 'STDERR','NIL:','W'
- call close 'STDIN'
- call close 'STDOUT'
- call open 'STDOUT','CON:0/0/640/256/RexxCon/SCRREN'||screenname,'RW'
- call pragma '*','STDOUT'
-
- address command 'virtex <* >*' opts name
-
- if rc ~=0 then delay(250)
-